#include "Objects.ch"

//----------------------------------------------------------------------------//

CLASS TControl FROM TView

   DATA  nExitState
   DATA  bWhen, bValid

ENDCLASS

//----------------------------------------------------------------------------//

METHOD New( nTop, nLeft, nBottom, nRight ) CLASS TControl

   Super:New( nTop, nLeft, nBottom, nRight )

   ::nExitState =


//----------------------------------------------------------------------------//
